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é ; INCLUDE FILES: 
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SPRIDEF SPROTECTION CODE DEFINITIONS 
SPTEDEF iPAGE TABLE ENTRY DEFINITIONS 
SSSDEF TSYSTEM STATUS CODE DEF INTIONS 
60 
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63 ; MACROS: 
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63 : 
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>>»_PAGOWNVIO ;PAGE OWNER VIOLATION 
SS$_LENVIO sLENGTH VIOLATION 
SS$"ACCVIO sACCESS VIOLATION 
: INPUT RANGE INACCESSIBLE 
;RETURN RANGE NOT WRITABLE 
;PREVIOUS PROTECTION ADDRESS NOT WRITABLE 


; ; SIDE EFFECTS: 
NONE 
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150 SUBL § $*#-MMG$C_LENGTH, SP ;RESERVE SCRATCH AREA 

1 MOVAL L*MMGSSETPRTPAG,R6 [R6 = SUBR ADR TO CALL 

1 g ASSUME PRTSC_NA EQ 0 

154 ASSUME PRTS$C~ RESERVED £Q 1 

155 MOVZBL PROT T(R :GET NEW PROTECTION 

136 CMPL BRPRTSe _RESERVED SRESERVED OR NO ACCESS? 

13 BLEG ANCH IF YES 

1 ‘ BITB #*C<PTESM_PROT @ -PTESV _PRoT> R8 ;BAD PROTECTION CODE? 
15 BNEQ 50$ cH iF YE 

160 10$:  CLRL  R9 SINIT THE RETURN PROTECTION 
161 BSBW MNGSINADRINI TINITIALIZE RETURN ADDRESS ARAYS & SCRATCH A 
16¢ BLBC ~=—._«aRO, 20 

16 MOV ;R2 = START OF RANGE, R3 = END 
164 BSBW #MMGSCREDEL iC CREATE CODE 

165 PUSHL RO SSAVE STATU 

166 BSBW  MMGSRETRANGE TRETURN AFFECTED ADDRESS RANGE 
16 BLBC RO, 208 [USE THIS BAD STATUS RATHER THAN CREDEL 
183 MOVL  PRVPRT(AP) ,R2 ZADDRESS TO RETURN PREVIOUS PROTECTION 
170 BEQL [BRANCH IF NONE SPECIFIED 

171 IFNOWRT #1. (RZ) ,308 [BRANCH IF WRITABLE 

1% i MOVB = R9.. (R2) TRETURN THE PREVIOUS PROTECTION 
174 ~=~——saRET sEXIT WITH STATUS FROM CRECOM1 
125 308: MOVZUL #SS$_ACCVIO,RO SACCESS VIOLATION 

179 40$: BEQL 50S :BRANCH IF RESERVED 

35 + REQUESTED PROTECTION IS NO ACCESS 

180 ; MUST BE AT LEAST KERNEL READ FOR THE FAULT ING LOGIC TO WORK FOR 

1 : TRANSITION PAGES IN BOTH SETPRTPAG AND DELPAG. 

1 ‘ : MOVL  #PRTSC_KR,R8 sFORCE AT LEAST KERNEL READ 

4 BRB 108 

$ $ ILLEGAL OR RESERVED PROTECTION CODE SPECIFIED 

8 Sos: MOVZUL #SS$_IVPROTECT.RO s INVALID PROTECTION CODE 
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CALLING SEQUENCE: 


INPUT PARAMETERS: 


OUTPUT PARAMETERS: 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


SS$ nn 
SSS_NOPRIV 
SS$_PAGOWNVIO 
SS$"LENVIO 
SS$_ “AeCVIO 


SIDE EFFECTS: 
NONE 
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PAGE OWNER VIOLATION 
LENGTH VIOLATION 
sACCESS VIOLATION 


S< 
4 
7. 


ssi" 


nr 
4 
4 
4 
8 
4 


59 63) «600460~—Ci«S1BTCOC‘éESF 


03 58 02 


03 59 O02 OO €D 


0058 #Wwee 
$0.6 66506CO 158 —CitséiS#F 


“ 
oo 
& Srm 
Ovo 
— 
w 
CDOOoCoCoCoooooooooo 


@COor> > PrP PVs MP PP YS POO -MMMMMmMm ODODOOOCOOwom 


Se ee 


AX/VMS Macro V04-00 


“5 on fyaten wk 
TEC SYS. SRCIS vss ETPRT.MAR; 1 


ON FOR AS NGLE 


"SSEp=198« 88:57:33 


% SHHTHATTATATAKET AKT KATAKAAK KA ReeHeAeAHAKe AeA eeeeeeeeeereeeteteteneere 
: eeeeererereneeee THE FOLLOWING CODE MUST BE RESIDENT seeeeeencececeere 
: .PSECT S$MMGCOD 
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AMGSSETPRTPAG: 


7SAVE CALLER'S IPL 
PUSHL RO i SAVE ACCESS MODE 
BSBW = MMGSPTEREF SREFERENCE PTE, RETURN SVAPTE 

i RETURN AT IPL=SYNCH 
BLBC RO, BRPRTPAGRET {BRANCH IF LENGTH VIOLATION 
MOVL  (R$),R1 [FETCH THE PAGE TABLE ENTRY 
BEQL PRIPAGACCVIO SBRANCH IF DELETED 
MOVL  (SP),R SACCESS MODE 
BSBW © MMGSPAG [CHECK ACCESS, RETURN PAGE TYPE 
BLBC BO BRPATPAGRET SBRANCH IF PAGE OWNER VIOLATION 

R1 <0:7> PTE TYPE to CASE ON (TyPO*2 + TYP1) 


R2 = VA, = SVAPTE, IPL = SYN 
O(SP) = ACCESS MODE, 4(SP) = SAVED IPL 
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: EXTZV #PTESV_PROT,#PTESS_PROT,(R3),R9 ;PREVIOUS PROTECTION 
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THE A a teh? COME SETS yet 31 OF R8_IF THE REQUESTED PROTECTION 
CHANGE IS FROM READ ONLY TO READ WRITE ha ia jn TURN WILL TRIGGER 
COPY ON REFERENCE Logit FOR SECTION TABLE P 


MOVZBL R8,R8 :RESET BIT 31 

8 :BRANCH IF NEW PROT IS “NO A 

#0,#2,R8,#3 LF EITHER OF 2 LOW Bits 1s 
THEN-NEW PROT ALLOWS URITE 


CMPZV 


BEQL 508 {BRANCH IF READ ONLY 
> NEW PROTECTION WILL SET PAGE WRITABLE 
+ SEE IF OLD PROTECTION WAS READ ONLY 
. CMPZV #0, #2,R9, 43 :1F BOTH LOW SITS WERE SET 
STHEN PAGE WAS REA 
BNEQ 508 ;BRANCH IF PAGE W WAS URIT TABL E 
‘ BBSS #31.R8,50$ ist BIT INDICATING TRANSITION 
Fe [FROM READ ONLY TO WRITABLE 
. See #PTESY PFN, #PTESS_PFEN ae RO ;RO=PEN iF PTE HAS ONE 
: CASE srCeRi . DISPLIST=<- spi sp ON PTE T 
PRTTRANS s TRANSIT AOR DZRO 
8 PRIPRCr it PAG! NG ath 
PRTGLOBAL.- :6L 
0 PRISTX,= SECTION TABLE INDEX 
: PRIVAL ID [VALID PAGE 
4 : TRANSITION OR DEMAND ZERO PAGE 
5 : FAULT THIS PAGE TO AVOID HAVING ANY CODE OTHER THAN THE PAGE FAULT 


: SECTION TABLE PAGE 


#31,R8,PRICHANGE BRANCH IF NO NEED TO COPY ON REF 
aPTESV_URT, (RS) ,PRICHANGE  : BRANCH IF SECTION IS WRITABLE 
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4 ; UNDERSTAND ALL THE TRANSITION STATES. THE FAULTING OF DEMAND ZERO 
4 ; PAGES ELIMINA FS THE POSSIBILITY OF THE "ZERO PAGE’ LOGIC IN THE 
r 3 ; PAGE FAULT GETTING AN ACCESS VIOLATION. 
4 0 PRTTRANS: 
0 D5 4 TSTL «6 ;DEMAND ZERO PAGE? 
A 1 4A : BNEQ 208 S BRANCH 
03 58 O02 OO €ED at CMPZV #0, #2, 8,43 TNEW PROT ALLOWS WRITING IF 
4 tEITHER LOW BIT IS 
3 13 } 5 BEQL 208 ;CONTINUE IF PAGE WILL NOT BE WRITABLE 
OOAA 31 : BRW PRTCHANGE SBRANCH IF PAGE WILL STILL BE WRITABLE 
:CHANGE PROTECTION WITHOUT FAULTING PAGE 
01 BA 8 20S: POPR #*M<RO> :RO = SAVED ACCESS MODE 
ENBINT [POP AND RESTORE SAVED IPL 
62 95 0058 0 TSTB CR) SFAULT THE PAG 
Al 11 5 1 BRB MMGSSETPRTPAG ;AND RESTART THE SET PROT ROUTINE 
03 18 3 PAGE ALREADY DELETED, CAN'T CHANGE PROTECTION 
O5F 15 PRTIPAGACCVIO: 
50 o¢ 3¢ oF 1 MOVZWL #SS$_ACCVIO,RO ZACCESS VIOLATION 
6 11 062 i BRB BRPRTPAGRET 
64 319 ; GLOBAL PAGE 
4 0; 
% 1 PRTGLOBAL: 
50 90000000 "EF DO 0064 ; MOVL §§ MMGSGL_GPTBASE,RO 
51 63 «16 9 EF $8 EXTZV #PTESV GPTX.#PTESS_GPTX, (R3) RI ; GET GPTX 
51 6041 dO 20 4 HOVE CRODERT »R1 :GET GPTE 
30 p4 26 6 CLRL. — RO ;ASSUME KERNEL MODE ACCESS 
FFBS* 30 007 BSBW NAGSPAGE TYPE 
50 bF D0 0078 ) MOVL  (SP)+,R :GET BACK THE GPTE 
0 91 4: 9 CMPB eR, #3 71S 17 A GLOBAL SECTION INDEX 
04 iF 9 BNEQ PRTNOPRIV [NO = CAN'T CHANGE THE PROTECTION 
7950 10 € 3 BBS #PTESV_CRF,RO,PRTCHANGE :ALLOWED IF CRF 
: PRTNOPRIV: 
50 24 3¢ 7 #SS$_NOPRIV,RO 7NO PRIVILEGE 
A 4 BRPRTPAGRET: 
7F Oo A 6 BRB PRIPAGRET 
¢ $ : RO = ADDRESS OF JIB 
c i : EXCEEDED PAGE FILE QUOTA 
€ 341 PGFLQUOTA: 
3c AO 06 ¢ 4g INCL JIBSL_PGFLCNT<RO) 7FIX UP THE COUNT 
8 , ia TSTL (SP) [CLEAN STACK 
50 1¢ 3¢ 1 344 MOVZWL #SS$_EXQUOTA,RO SRETURN EXCEEDED QUOTA" 
0074 31 0094 345 BRW PRIPAGRET 
97 46 
97 3% 
97 48 
97 3% 
36 31 
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50 0080 C4 D9 Al 53 MOVL  PCBSL_JIB(R4) RO :GET JIB ADDRESS 
CAO D A 34 DECL JIBSL-PGFLCNT(RO) ‘CHARGE A PAGE FILE PAGE 
4 19 OOA 5 BLSS pyr LSOOTA :BRANCH IF OVER QUOTA 
0 BED) OAB : POPL R RESTORE PFN 
4E 63 10 F OA BBCS #PTESV_CRF,(R3) -PRICHANGE FORCE COPY ON REFEREN NCE 
4¢ 1 o¢ 28 BRB PRT CHANGE D GO CHANGE THE PROTECTION 
O84 60 : VALID PAGE 
0B4 6¢ PRTVALID: 
OO0000000"EF 50 01 O0B4 36 CMPL =e RO MMGSGL _MAXPFN i1s THIS PAGE IN SHARED MEMORY? 
CA 1A O00BB 364 BGTRU  PRTNOPRIV F I , MUST BE GBL SEC PAG 
C663 15 €0 O0BD 365 BBS PETE SY WINDOW, (R3), PRINOPRIV.. RETURN ERROR’ IF PFN MAPPED PAGE 
0C1 2 ASSUME PFNSC_PROCESS EQ 0° PROCES AGE TYP 
0000'DF40 07 93 oc} 67 Bits pra , aW*PFNSAB “Lona iP ROGeSS PAGE? 
3358 «1F gi 00¢9 369 BBC #31, RB, PRTCHANGE Hebe NS NO NEED TO copy ON REF 
51 0000°DF40 09 $C O00CD 370 ROTL Asi Pres TYPOS, au“PENSAy BAKCROI -R1<31> = TYPO BI 
2A S18 0004 4 BGEQ ;BRANCH IF ai RiADY PAGING FILE ADDRESS 
0006 78 > CHANGE SECTION ADDRESS TO "NOT YET ALLOCATED’ PAGING FILE ADDRESS 
26 51 18 EO 0006 f3 2 BBS #<PTESV. WRT+<31=PTESV =-TYPO>> RI ,PRICHANGE ; ;BRANCH IF SECTION WRITABL 
50 008064 D0 O0Dc 377 MOVL PCBSL_JIB(R4),RO :GET JIB ADDRESS 
3C AO =D? —«OO0ET 78 DECL JIBSLPGFLCNT(RO) CHAR ¢e PAGE FILE yQyora 
A6 19 OOES 79 BLSS PGFLQUOTA ;BRANCH IF OVER 
50 BEDO 0066 380 POPL _RO ORE PFN 
09 EE O0E9 81 EXTV  #<PTESV_STX+<31-PTESV _tybOs>. . iGET SECTION INDEX 
51 51 10 00EB : #PTESS_STX,R1,R1 SHIFTED BACKING STORE ADDRESS 
52 pp OOEFKE 38 PUSHL R2 SAVE VIRTUAL A ADDRESS 
FFOD' 30 OOFO 384 BSBW NNGSDECSECREF : COUNT aint LESS SECTION REFERENCE 
04 BA OOF3 385 POPR <R2> REST AVED VIRTUAL ADDRESS 
0000'DF40 41C AS DO OOF 86 MOVL PHDSL _PAGFIL(RS), -@u*PFNSAL BAKERO pigine FILE’ ADR FILE ADDRESS 
0063 1A €2 OOFC 388 BBSS  #PTESV_MODIFY,(R3),10$ :FORCE MODIF 
$100 800 
9100 31 PAGE FILE PAGE 
9190 $8 I PRIPAGF IL: 
0190 99 : CHANGE THE PAGE PROTECTION 
td 38 BRTCHANGE : 
63 06 18 SB FO 190 98 INS v 1p Be .#PTESV,_ PROT ,APTESS_PROT, (RS) set NEW PROTECTION 
105 399 INVA D INVALIDATE THE TRANS BUFFER 
50 01 3¢ 198 400 moved’ #SS$_NORMAL ,RO SUCCESSFUL COMPLETION 
1 40¢ : EXIT HERE WITH RO ALREADY SET 
403 : O(SP) = ACCESS MODE, 4(SP) = IPL TO RESTORE, 8(SP) = SAVED PSL | 
198 405 PRIPAGRET: 
02 BA Oi 406 POPR #*M<R1> :POP THE SAVED ACCESS MODE | 
100 4 ENBINT :RESTORE CALLER’ § IPL 
05 0110 4 : RSB AND RETU | 
W104 | 
| 
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Psect synopsis 


Initialization 30 
poumene processing 125 
Pas 299 
Synbol table sort ? 
Symbol table output 8 


Psect synopsis output 
Cross-reference output 
Assembler run totals 550 


Macro library name 
“$52 2SDUAG 8:CSYS.OBJJLIB.MLB;1 
8: CSYSLIBISTARLET.MLB;2 
ToTAcs (all Libraries) 


9 
SYSSETPRT - Set Page Protection System aa 


PSECT name Allocation 


- ABS . 0000000 
SABSS 00 
YSEXEPAGED 000000 
SMMGCOD 0 
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The working set Limit was 1200 pages. 
50505 bytes (99 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space eh ecotad to hold 937 non-local and 10 local symbols. 
412 source lines were read in Pass 1, producing 18 object records in Pass 2. 


22 pages of virtual memory were used to define 21 macros. 


1043 GETS were required to define 18 macros. 
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' Psect synopsis ! 
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PSECT No. Attributes 


B°3 00 ¢ QO.) NOPIC USR 
) ( 1.) NOPIC USR 
a) ¢ ( 2.) NOPIC USR 
273.) ( 3.) NOPIC USR 
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There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSSETPRT/OBJ=OBJ$:SYSSETPRT MSRC$:SYSSETPRT/UPDATE=(ENHS$:SYSSETPRT) +EXECMLS$/LIB 


Sh NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD 


WRT NOVEC BYTE 
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VAX/VMS V4.0 
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